home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / u.mondo wordo ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  61 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]    [205] [207] [206] [196] [207]   [215] [207] [210] [196] [207]   [201] [201]"
  3. 30 print"   #1 - [196]isable [212]imer? ([217]/[206])"
  4. 40 print"   #2 - [204]etters [196]on't [198]all? ([217]/[206])"
  5. 50 print"   #3 - [206]umber [207]f [195]ontinues? (5/9)"
  6. 80 print"[201]t's best to use a copy rather than"
  7. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  8. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  9. 110 print"on the disk is not covered as this"
  10. 120 print"program writes to the disk."
  11. 130 print"[201]f you would like to make this change,"
  12. 140 print"[201]nsert [204]oadstar [201]ssue #150 [211]ide 2 into"
  13. 150 print"[196]rive #8 and [211]elect 1, 2, or 3."
  14. 152 print"[193]fter [211]electing, [196]o [206][207][212] touch the"
  15. 154 print"keyboard or open the disk drive door"
  16. 156 print"until the white [195]ursor appears!!!!!!"
  17. 160 q$=chr$(34):f$="mondo ii"
  18. 170 geta$:ifa$=""then170
  19. 172 ifa$="1"then190
  20. 174 ifa$="2"then400
  21. 176 ifa$="3"then600
  22. 178 goto170
  23. 190 print"[147][144]l[207]"q$f$q$",8"
  24. 200 print"150 ?"q$"[158][196]isable [212]imer? ([217]/[206])"q$
  25. 205 print"151 getz$:ifz$="q$q$"then151"
  26. 210 print"152 ifz$="q$"y"q$"orz$="q$"n"q$"then154"
  27. 215 print"153 goto151"
  28. 220 print"154 ifz$="q$"y"q$"t[200]p[207]22413,173:p[207]22600,173:p[207]22981,173"
  29. 225 print"155 ifz$="q$"n"q$"t[200]p[207]22413,141:p[207]22600,141:p[207]22981,141"
  30. 250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  31. 260 print"p[207]646,1
  32. 270 [153]""
  33. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  34. 290 [162]:[128]
  35. 400 [153]"loadstopl(NULL)"q$f$q$",8"
  36. 410 [153]"160 ?"q$"sys(NULL)etters str$on't ascall? ((NULL)/(NULL))"q$
  37. 420 [153]"161 getz$:ifz$="q$q$"then161"
  38. 430 [153]"162 ifz$="q$"y"q$"orz$="q$"n"q$"then164"
  39. 440 [153]"163 goto161"
  40. 450 [153]"164 ifz$="q$"y"q$"tleft$p(NULL)21717,173"
  41. 460 [153]"165 ifz$="q$"n"q$"tleft$p(NULL)21717,206"
  42. 470 [153]"o(NULL)15,8,15,"q$"s0:"f$q$":cl(NULL)15:satn"q$f$q$",8"
  43. 480 [153]"p(NULL)646,1
  44. 490 print""
  45. 500 fori=631to640:pokei,13:next:poke198,10
  46. 510 new:end
  47. 600 print"[147][144]l[207]"q$f$q$",8"
  48. 610 print"170 ?"q$"[158][206]umber [207]f [195]ontinues? (5/9)"q$
  49. 620 print"171 getz$:ifz$="q$q$"then171"
  50. 630 print"172 ifz$="q$"5"q$"orz$="q$"9"q$"then174"
  51. 640 print"173 goto171"
  52. 650 print"174 ifz$="q$"5"q$"t[200]zz=5"
  53. 660 print"175 ifz$="q$"9"q$"t[200]zz=9"
  54. 670 print"2140 p[207]v+1,zz:rem continues"
  55. 680 print"o[208]15,8,15,"q$"s0:"f$q$":cl[207]15:s[193]"q$f$q$",8"
  56. 690 print"p[207]646,1
  57. 700 [153]""
  58. 710 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  59. 720 [162]:[128]
  60. 10000 [159]15,8,15,"s0:u.mondo wordo ii":[160]15:[148]"u.mondo wordo ii",8:[128]
  61.